﻿Module Module1
  Sub Main()

    ' primo test
    Dim bool As Boolean = True
    Dim int As Integer
    int = CType(bool, Integer)
    Console.WriteLine(int)   ' --> -1
    ' secondo test
    Dim bool2 As Boolean = False
    Dim int2 As Integer
    int2 = CType(bool2, Integer)
    Console.WriteLine(int2)  ' --> 0
    Console.ReadLine()

  End Sub
End Module
